home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Zoo Guides: Mammals of Africa
/
ZOO Guides - Mammals of Africa.iso
/
mac
/
Other ZooGuides Sampler
/
Butterflies data
/
Chapters 12
/
intro
/
intro.rsrc
/
BITD_1057.bin
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1993-10-08
|
15KB
|
118 lines
GOSUB
OPEN
<0x18826d6> PRINTPRINT<0x7e><0x7d><0x1882716>PRINT<0x7d>ATNASC32<0x188271d>NOT
ATN
<0x5e>
<0x1882724>]<0x7d>PUT<0x7d><0x7e><0x7d><0x5f><0x7d><0x7d><0x188272e><0x7e><0x7e>PUT<0x7d>COS@<0x1882735>
var2bac<0x7e><0x7d>■² AS<0x1882774><0x50><0x7d><0x7d>^<0x1882779>varffff8800AREA
MID$<0x7e><0x7d>
<0x7e><0x7e><0x7d><0x1882787>PUT<0x7d>PUT<0x7d><0x7e>COS<0x7e><0x7d><0x1882790>PUT<0x7d>PUTRNDPRINT|<0x56>
ATN
<0xfb,0x00>var24fa<0xfb,0x00><0x18827a2>PUT<0x7d><0x7d>COMMON<0x7c>COS<0x7c>COMMONPUTPRINTPUT<0x7d><0x7d>labelffff822c%MKS$
OPEN
varfffffbd0<0xfb,0x00>4PUT<0x7d>COMMONPUTPRINTPUTPRINTPRINTPUTPRINTPRINT<0x7d>PRINTPRINTPUT<0x7d><0x7d><0x60>PUTPRINTATNlabelfffff700ATN
<0x5e>
y<0x7d><0x7d><0x18827de>PUT=<0x7d><0x7f><0x7e><0xfb,0x00><0x18827e6>PUT<0x7d>COS<0x7d>PUTPRINT<0x7d><0x7d><0x18827ef>PRINT<0x7d><0x7d>PUTCOMMON<0x18827f5><0x46>
FIELD
<0x7d><0x7d>PUT<0x7d><0x7d><0x1882801>PRINT<0x7d><0x7d>PUTPRINTPUT<0x7d><0x7d><0x7d><0x188280b><0x50>PUT<0x7d>PRINTPUT<0x7e><0xfb,0x00>labelffff822dvarffff9600AREA
<0x7d><0x7d>PUT<0x7d><0x7d>173<0x7d><0x7d>PUT<0x56>PUT<0x7d>PUT<0x7d>PRINTPUT<0x7d><0x7d><0x7e><0x7d><0x7e><0x7d><0x7d>varfffffead<0x7e><0x7d><0x188283b>PUT<0x7d>COMMON3<0x1882840>varffffe600ATN
MOD
<0x1882848>V<0x7d><0x7d>PUT<0x7d>EQV<0x7e>\<0x7d>varffffadac<0x7d><0x7d><0x1882857>PUT<0x7d><0x7d>PUT<0x7f>PRINT<0x60><0x7c><0x7d><0x7d>d<0x1882865>SGN
NEXT
<0x7c> PUT<0x7d><0x7f><0x7e>PUT<0x7e><0x7d>
<0x7e><0x7c><0x7d>
PUT<0x7e><0x7d><0x18828b1><0x7e><0x7d>PRINT<0x7d>PUT<0x7d>d:^4^<0x7e><0x7d>
<0x7c>CALL
<0x5c>
var73e9<0x7e><0x7d>varfffffefe<0x7e><0x7d>
PUT<0x7e><0x7d><0x18828d3>PUT<0x7d>COMMONCOMMONPUT<0x7d>PUTPUT<0x7d>COMMONPRINTPUT<0x7e><0x7d><0x18828e2><0x7e>COMMON44.ATN^4XPUT<0x7d><0x7d>^varffffd200EOF
<0x18828f5>MID$<0x7d><0x7d>COSPRINT<0x7e><0x7d>
<0x7e><0x7e><0x7d>
<0x7e>8PRINTRSETPRINTCOS<0x7d>PRINTPRINT<0x7d>PRINT<0x7d>PUT<0x7d><0x7d>COMMON;^MKI$COMMONATN<0x1882917><0x1882918><0x1882919>W_^PRINT<0x7e><0x7d>label7cf8varffffa200CVL
<0x1882928><0x7c><0x7e><0x7d>PRINT<0x7d>COS<0x7e><0x7d><0x1882931><0x7e>PUT<0x7e><0x7d><0x7e><0x7d><0x7d><0x7e><0x7e><0x7d>1COMMONXATNW-|X.<0x1882945><0x1882946><0x1882947>XMKD$PRINT;<0x188294c><0x188294d>XMKD$<0x7c><0x7d>labelffffdf64varfffff000ATN
IMP
var48fc<0xfb,0x00>
<0x5f><0x7e><0x7d>173<0x7d><0x7e><0x7d><0x7d><0x5f><0x7d><0x5d>^4<0x1882970><0x1882971><0x1882972><0x1882973>.<0x1882975><0x7d>.ATNMKD$.<0x188297d><0x188297e>PUT<0x7d><0x7d><0x7e><0x7d><0x7e>PRINTPRINTXWHILEMKS$
&H4ffd<0x7d>PUT<0x7d><0x7d>PUT<0x7c>MKI$ATN|ATNPRINT<0x7e><0x7d> PUTMKD$.<0x18829d5><0x18829d6><0x18829d7><0x18829d8><0x18829d9><0x18829da><0x18829db>label0334ATNCOS^var5eac<0x7e><0x7d><0x18829e9>PUT<0x7d>PUT<0x7e>PRINT141
<0x5a>
)zPRINT<0x7d>PRINTATNX<0x18829fb><0x18829fc><0x18829fd><0x18829fe>-XATNMKD$PRINT:4<0x1882a0a><0x1882a0b>label03084]COMMONPRINTPUT<0x5e><0x7d><0x7d>PUT<0x7d><0x7d>PUT<0xfc,0x00>labelffffad64220
DATA
var73ac<0x7d><0x7d><0x1882a2e>MKD$X.-<0x1882a33>1<0x1882a37>R4(]MKD$ATNRRuMKD$<0x7d>RNDAS
PUTAS
PUT<0x7e><0x7d>
QOPEN
WRITE
var24ac<0x7d><0x7d>0PUTPUTPRINTCOMMONATN^X.^MKD$<0x7d><0x7c>PUTATNMKD$^PRINTPUT<0x7c><0x7d>
PUT<0x7e><0x7d>
<0x5f>\<0x7d>
PUT<0x7d><0x7d><0x7d><0x7d>3<0xfc,0x00>ATN
AND
<0x1882a89>H<0x7d><0x7d><0x7e><0x7d>EQV<0x7c><0x7d><0x1882a92>PUTPRINTPRINTPUTPUT<0x7d><0x7d>PRINT<0x7d><0x7d>labelffffacfd<0x7e><0x7c><0x7d><0x1882aa3>PUT<0x7d><0x7e><0x7d><0x7d><0x7e><0x7e><0x7d>
<0x7e><0x7c><0x7d>
<0x7e><0x7d><0x7d>labelffffadfcvarffffc800LSET
var73ac<0x7e><0x7d>
PUT<0xfc,0x00>65022PUTXOR<0x7d><0x7d> <0x7d><0x5f><0x7d>PUTXOR<0x7e><0x7d>
PUT<0x7e><0x7d><0x1882b0d><0x7e><0x7d><0x7e><0x7d>PUT<0x7d><0x7e><0xfc,0x00>varffff8833GOTO
<0x56>
s<0xfc,0x00><0x1882b22>EQV<0x7d><0x7d>PUTEQV\<0x7d>
<0x7e><0x7e><0x7d>labelffffacfe<0x7e><0x7e><0x7d>PUT<0x7d>PUT<0xfc,0x00>
<0x7e><0x7e><0x7d><0x1882b3f>PUT<0x7d><0x7d><0x7e>PRINT,TO
COS
var24ac<0x7d><0x7d>
PUT<0x1882b51><0x7d><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7e><0x7d>
<0x7e><0x7e><0x7d>
<0x60><0x7e><0x7d><0x1882b63>PUT<0x7d><0x7e><0x7d>=<0x7d><0x7d>EQV<0x7e><0x7e><0x7d><0x7d><0x1882b70>PUTXOR<0x7d><0x7d>PUT<0x7d><0x60>PRINTASvarffff8201SGN
<0x3b>
var2aac<0xfc,0x00><0x1882b87>PUT<0x7d><0x7d><0x7e><0x7d><0x7e><0x7e><0x7d><0x1882b90><0x7e><0x7d><0x7d>PUT<0x7d><0x7e><0x7c><0x7d>
<0x7e><0x7e><0x7d>labelffffadfd<0x7e><0x7d><0x7d><0x1882ba3>PUT<0x7d><0x7d>PUT<0x7d>PUTPRINT<0xfc,0x00>varffffdd3a
labelffff8300-
var24ac<0x7e><0x7d>PUT<0x7d>PUT<0x7d><0x7d>
RSET<0x7d><0x7d>
<0x7e><0xfc,0x00>
<0x7e><0x7e><0x7d>
PUT<0x7e><0x7d><0x1882bd2><0x7e><0x7d><0x7d><0x7e><0x7d><0x7e><0xfc,0x00><0x1882bdb>PUT<0x7d><0x7e><0x7d><0x7d>PUT<0x7c><0x7d>labelffffac5e,<0x51>
LINE
<0x1882bec>MID$<0x7d><0x7d>PUT<0x7d><0x7d>COMMONMOD<0x7d><0x7d><0x7e><0x7d> <0x7f><0x7d><0xfc,0x00>labelfffffefd<0x7d><0x7e><0x7e>labelfffffdfdPUT<0x7c><0x7d>
<0x7e><0x7e><0x7d><0x1882c46>PUT<0x7d><0x7d><0x7e>OPEN<0x1882c4c><0x20>
<0x51>
ABS<0x7e><0x7d>labelffff8888><0x7d><0x7d><0x1882c5b><0x7e>PUT<0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0xfc,0x00><0x1882c66>XOR<0x7e><0x7d><0x7e>PUT<0x7d><0x7e><0x7d><0x7e><0x7e>PUT<0x7e><0x7d><0x7d><0x7d><0x7e>PUT<0x7d>PUT<0x7e><0x7d><0x1882c80>PUT<0x7d><0x7d><0x7e><0xfc,0x00>
CDBL
var4fac<0x1882c8d><0x7d>COS<0x7d><0x7e>COMMON<0xfc,0x00>varffffadfe<0x7c><0x7d>
<0x7e><0x7e><0x7d><0x1882c9e><0x7e><0x7d>PUT<0x7d>PUT<0x7c><0x7d>labelffffadfd<0x7d><0x7e><0x7e><0x1882cac>PUT<0x7e><0x7d>PUT<0x7d>PRINT<0x7c><0x7d><0x1882cb5><0x7e><0x7d><0x7d>PUT<0x7d><0x7d>PUT
<0x1882cc2>ASC<0x7d>PRINT<0x7d><0x7d>>PRINT<0x5f><0x7d><0x7d>PUT<0x7c><0x7d>
PUT<0x7e><0x7d><0x7d><0x7d>PUT<0x7e><0x7d>
<0x7e><0x7d><0x7d>
><0x7e><0x7d>
<0x7e><0x7c><0x7d><0x7d><0x7d>PUT<0x7c><0x7d><0x7d>PUT<0x7d><0x7d>PRINT4CVI
NOT
l\<0x7d>
PUTMOD<0x7d>
PUT<0x7c><0x7d>173<0x7d><0x7d>PRINT<0x7e>PUT<0x7d><0x7e><0x7d><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e>PUT<0x7c><0x7d>
<0x7e><0xfc,0x00><0x7d><0x7d>:<0x59>
INPUT
<0x7d><0x7d>PUTPUT<0x7c><0x7d>
PUT<0x7e><0x7d><0x7c><0x7d><0x1882d6b><0x7e><0x7d>PUT<0x7d>PUT<0x7d><0x7d>
<0x7e><0x7d><0x7d><0x1882d77>EQV<0x7d><0x7d>PUT<0x7d><0x7d>PUTAS<0x7d>EOFlabelffffa800<0x4c>
$<0x7e><0x7d>
PRINT<0x7e><0x7d>
PUT<0x7d><0x7d>
<0x7e>\<0x7d><0x7d><0x7d>PUT<0xfb,0x00>
<0x7e><0x7e><0x7d><0x1882da5>PUT<0x7e><0x7d><0x7d>PUT<0x7e>PRINT<0x7e><0x7d><0x7d><0x1882db0><0x7e><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e>PUTPRINT>130
<0x7d>
varfffffdac<0x7e><0x7d><0x7e><0x7d>COMMONdPRINTPUT<0x7e><0x7d>labelffffadfdPUT<0x7d><0x7d><0x1882dda>PRINTCOSPRINT<0x7d>COMMONCOMMONPRINTPUTPRINTPRINT<0x7e><0x7d><0x1882de7><0x7e>PUT<0x7d><0x7d>PUT<0x7c><0x7d><0x7d><0x7d>PUT\<0x7d>
,<0x4e>
label2b50<0x1882dfd><0xfb,0xfffffffb>RETURN
<0x1882e02>PRINTPUT<0x7d>PUT<0x7d><0x7d>PRINT>PUT<0x7d><0x1882e0d><0x1882e0e><0x1882e0f>@<0x7e>COMMON<0x7e><0x7d><0x7e>COMMON<0x1882e17>d:52:<0x7e><0x1882e1e>41125^COS<0x7d><0x7d>d^<0x7d>PUT<0x7d><0x7d>PUT
<0x60><0x7d><0x7d>
PUT<0xfb,0x00><0x1882e37><0x7e><0x7d>PRINT<0x7d>labelffffd000<0x7c>PRINTvarffffc800<0x62>
<0x7d><0x7d>PRINT<0x7e><0x7d>1PRINT<0x7e>d<0x1882e53><0x1882e54><0x1882e57>.4ATN9 <0x1882e92><0x1882e93><0x1882e94><0x1882e95><0x7e><0x1882e97>label040a-<0x7d><0x1882e9d>CALL<0x1882ea3>4XCOMMONPRINT<0x7e><0x7d>
PUT<0x7d><0x7d>
<0x7e><0x7e><0x7d><0x1882eb2>PUT<0x7d><0x7e>PUT<0x7d>COMMONlabelffffe100OR
PRINTPRINT<0x7c>